home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / Devices.asm < prev    next >
Assembly Source File  |  1991-03-13  |  715b  |  43 lines
  1. *
  2. *    Devices.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    This file has the glue routines for the procedures and functions
  6. *    defined in Include/Exec/Devices.i
  7. *
  8.  
  9.     SECTION    PCQ_Runtime,CODE
  10.  
  11.     XREF    _AbsExecBase
  12.  
  13.     XREF    _LVOAddDevice
  14.     XDEF    _AddDevice
  15. _AddDevice
  16.     move.l    4(sp),a1
  17.     move.l    _AbsExecBase,a6
  18.     jmp    _LVOAddDevice(a6)
  19.  
  20.     XREF    _LVOCloseDevice
  21.     XDEF    _CloseDevice
  22. _CloseDevice
  23.     move.l    4(sp),a1
  24.     move.l    _AbsExecBase,a6
  25.     jmp    _LVOCloseDevice(a6)
  26.  
  27.     XREF    _LVOOpenDevice
  28.     XDEF    _OpenDevice
  29. _OpenDevice
  30.     movem.l    4(sp),d1/a1
  31.     movem.l    12(sp),d0/a0
  32.     move.l    _AbsExecBase,a6
  33.     jmp    _LVOOpenDevice(a6)
  34.  
  35.     XREF    _LVORemDevice
  36.     XDEF    _RemDevice
  37. _RemDevice
  38.     move.l    4(sp),a1
  39.     move.l    _AbsExecBase,a6
  40.     jmp    _LVORemDevice(a6)
  41.  
  42.     END
  43.